home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / amiga.free / sorgenti vari / wolfedit2 2.0.4 source.sit / WolfEdit2 2.0.4 Source / UBSPTree.p < prev    next >
Text File  |  1994-11-14  |  630b  |  42 lines
  1. unit UBSPTree;
  2.  
  3. interface
  4.     uses
  5.         ULevel;
  6.  
  7.     type
  8.  
  9.         BSPTreePtr = ^BSPTreeNode;
  10.         SegmentPtr = ^SegmentRecord;
  11.  
  12.         BSPTreeNode = record
  13.                 entry: integer;
  14.                 segments: SegmentPtr;
  15.                 case kind : BSPNodeType of
  16.                     nonterminal: (
  17.                             splitDir: VHSelect;
  18.                             splitCoord: integer;
  19.                             links: array[0..1] of BSPTreePtr;
  20.                     );
  21.                     terminal: (
  22.                     );
  23.             end;
  24.  
  25.         SegmentFacing = (nw, se);
  26.  
  27.         SegmentRecord = record
  28.                 next: SegmentPtr;
  29.                 dir: VHSelect;
  30.                 face: SegmentFacing;
  31.                 pos: integer;
  32.                 ends: array[0..1] of integer;
  33.                 grid: integer;
  34.                 area: integer;
  35.                 entry: integer;
  36.             end;
  37.  
  38.  
  39.  
  40. implementation
  41.  
  42. end.